
Type Widget

	Field Panel : TGadget
	Field Parent : TGadget
	Field Pos : UIRect = New UIRect
	Field Title : String
	Field Gadgets : TGadget[]
	Field IconAsset : Asset
	Field IconStrip : TIconStrip
	
	Method SetShape(x : Int,y : Int,w : Int,h : Int)
	
		Pos.x = x
		Pos.y = y
		Pos.w = w
		Pos.h = h
	
	End Method
	
	Method SetIconAsset(ass : Asset)
	
		IconAsset = ass
	
		IconStrip = LoadIconStrip( IconAsset.FileBank )
	
	
	End Method
	
	Method SetAll(ttitle : String,x : Int,y : Int,w : Int,h : Int,pparent : TGadget)
	
		SetTitle(ttitle)
		SetShape(x,y,w,h)
		Parent = pparent
	End Method
	
	Method SetTitle(ttitle : String)
	
		Title = ttitle
	
	End Method
	
	Method New()
		Pos = New UIRect
	End Method
	
	Method Set()
	
	End Method
	
	Method Update(EID:Int,Obj:Object,EEX:Object = Null)
	
	End Method
	

End Type

Type UIRect

	Field x : Int = 10
	Field y : Int = 10
	Field w : Int = 10
	Field h : Int = 10



	Method Set(xx,yy,ww,hh)
	
		x = xx
		y = yy
		w = ww
		h = hh
	
	End Method	

End Type